﻿Namespace UI
	Public Class About

		Private Sub About_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
			Copyright.Text = My.Application.Info.Copyright
			Dim info As FileVersionInfo = FileVersionInfo.GetVersionInfo(My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
			Version.Text = info.FileMajorPart & "." & info.FileMinorPart
			Me.Focus()
		End Sub

		Private Sub About_LostFocus(sender As Object, e As RoutedEventArgs) Handles Me.LostFocus
			Try
				Me.Close()
			Catch
			End Try
		End Sub

		Private Sub About_LostKeyboardFocus(sender As Object, e As KeyboardFocusChangedEventArgs) Handles Me.LostKeyboardFocus
			Try
				Me.Close()
			Catch
			End Try
		End Sub

		Private Sub About_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonUp
			Try
				Me.Close()
			Catch
			End Try
		End Sub
	End Class
End Namespace